Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Math/Unit Conversion/card_4845.txt

Text File | 1990-11-02 | 8.0 KB | 338 lines

-- card: 4845 from stack: in
-- bmap block id: 7118
-- flags: 0000
-- background id: 3044
-- name: Temperature
----- HyperTalk script -----
on closeCard
  put empty into background field "toconvert"
  put empty into background field "answer"
end closeCard



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=291 top=54 right=93 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Celsius to Fahrenheit
----- HyperTalk script -----
on mouseUp
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 ° Celsius" into background field "toconvert"
  else
    put temp && " ° Celsius" into background field "toconvert"
  end if
  multiply temp by 9
  divide temp by 5
  add 32 to temp
  put temp && "° Fahrenheit" into background field "answer"
  put empty into temp
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=291 top=99 right=136 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fahrenheit to Celsius
----- HyperTalk script -----
on mouseUp
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 ° Fahrenheit" into background field "toconvert"
  else
    put temp && " ° Fahrenheit" into background field "toconvert"
  end if
  subtract 32 from temp
  multiply temp by 5
  divide temp by 9
  put temp && "° Celsius" into background field "answer"
  put empty into temp
end mouseUp


-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=292 top=147 right=188 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Celsius to Kelvin
----- HyperTalk script -----
on mouseUp
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 ° Celsius" into background field "toconvert"
  else
    put temp && " ° Celsius" into background field "toconvert"
  end if
  add 273 to temp
  if temp < 0 then
    answer "That value is below ABSOLUTE ZERO!" with "OK"
    send mouseUp to background button "Clear"
  else
    put temp && "° Kelvin" into background field "answer"
    put empty into temp
  end if
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=292 top=191 right=230 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kelvin to Celsius
----- HyperTalk script -----
on mouseUp
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put 0 into temp
    put "0 ° Kelvin" into background field "toconvert"
  else
    put temp && " ° Kelvin" into background field "toconvert"
  end if
  if temp < 0 then
    answer "That value is below ABSOLUTE ZERO!" with "OK"
    send mouseUp to background button "Clear"
  else
    subtract 273 from temp
    put temp && "° Celsius" into background field "answer"
    put empty into temp
  end if
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=294 top=283 right=320 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fahrenheit to Kelvin
----- HyperTalk script -----
on mouseUp
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 ° Fahrenheit" into background field "toconvert"
  else
    put temp && " ° Fahrenheit" into background field "toconvert"
  end if
  subtract 32 from temp
  multiply temp by 5
  divide temp by 9
  add 273 to temp
  if temp < 0 then
    answer "That value is below ABSOLUTE ZERO!" with "OK"
    send mouseUp to background button "Clear"
  else
    put temp && "° Kelvin" into background field "answer"
    put empty into temp
  end if
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=293 top=240 right=277 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kelvin to Fahrenheit
----- HyperTalk script -----
on mouseUp
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put 0 into temp
    put temp && " ° Kelvin" into background field "toconvert"
  else
    put temp && " ° Kelvin" into background field "toconvert"
  end if
  if temp < 0 then
    answer "That value is below ABSOLUTE ZERO!" with "OK"
    send mouseUp to background button "Clear"
  else
    subtract 273 from temp
    multiply temp by 9
    divide temp by 5
    add 32 to temp
    put temp && "° Fahrenheit" into background field "answer"
    put empty into temp
  end if
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=75 top=288 right=304 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Distance
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Distance
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=288 right=304 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Area
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Area
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=75 top=306 right=323 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Volume
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Volume
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=306 right=323 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Temperature
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card weight
end mouseUp



-- part contents for background part 7
----- text -----
Temperature
Conversions